perm filename CHKUP.F4[1,LCS] blob sn#088081 filedate 1974-02-16 generic text, type T, neo UTF8
00010		DIMENSION INP(8),NXT(4),RN(9),JNP(7,50),JXT(4,50),SN(9,50)
00020		1 ,MINP(84)
00100	1	FORMAT(84A1)
00150		JJ=0
00200		N='ACT'
00300		CALL IFILE(1,N)
00400	3	READ(1,1,END=2)MINP
00500		DO 4 K=1,7
00600		IF(MINP(K).NE.'L'.OR.MINP(K+1).NE.'C'.OR.MINP(K+2).NE.'S')
00625		1 GO TO 4
00650		JJ=JJ+1
00660		IF(JJ.GT.50)CALL EXIT
00662		DO 50 J=1,84
00664	50	IF(MINP(J).EQ.'	')MINP(J)=' '
00666	C  1ST ABOVE IS TAB, THEN SPACE.
00670		TYPE 1,MINP
00700		DO 5 J=1,7
00800	5	JNP(J,JJ)=INP(J)
00900		DO 6 J=1,4
01000	6	JXT(J,JJ)=NXT(J)
01100		DO 7 J=1,9
01200	7	SN(J,JJ)=RN(J)
01300		GO TO 3
01310	4	CONTINUE
01320		GO TO 3
01400	2	N='WEUNS'
01500		CALL OFILE(21,N)
01600		DO 8 K=1,JJ
01700	8	WRITE(21,9)(JNP(J,K),J=1,8),(JXT(J,K),J=1,4),(SN(J,K),J=1,9)
01800	9	FORMAT(1X9A1,I3,2A5,2(F5.0,':',F3.0),F5.0,F5.0,':',F3.0,F6.0,
01850		1 F8.2)
01900		END